ORBIT Microcode 


Location 720b points to a control table (even address) with 
the following entries: 

0 Directive -- tells which function to execute 

1 Argument 1 -- first argument to the function 

2 Argument 2 -- second argument 

...entries below here used only for directive 12 and 13 ... 

3 nBandsMl -- number of bands (-1) to generate 

A band is 16. scan-lines 

4 FA — first read address for output (left half-word) 

5 LoTable -- pointer to left-over table 

Must be even; must be initialized with @LoTable=0 

6 FontTable -- pointer to table of font characters: 

(ICC is a mnemonic for ’internal character code’) 

FontTablel (ICC+lOOOOOb) *> Fdes (must be even) 

Fdes 10=-Height (in bits) 

Fdes!l=Width-l 

FdesI2,3,... bit map for character 

7 NewRp -- pointer to list of "new characters” : 

NewRpIl is first word and must be even 
Each entry on NewRp is one of: 

(a) A character (2 words). First word is ICC+lOOOOOb 

Second word is xInBand (bit 4), Y (bit 12.) 

XY address is of lower left corner of box. 

(b) A "rule” (4 words). First word is 1. 

Second word is xInBand (bit 4), Y (bit 12.) — same 
interpretation as for a character. 

Third word is -Height (in bits). Fourth word is 
Width-1. 

(c) A band terminator (2 words, both =0) used to mean 

that no more information is required for this band. 

...these entries are filled in by the microcode with values ... 

8. Result — if a function returns a result, it is placed here 

9. Status -- records latest Orbit status 

Some "firmware status" bits are added to the normal Orbit status 
word : 

100000b -- Orbit is "in a character segment" (lACS) 

40000b — Timeout in Slot band switch wait (Di rective=14b) 
20000B — ROS status WORD unstable (Direct ive=16b) 

Idling. When a function is finished execution, the microcode sets 
location 720b to zero, and will then idle in one of two ways: 

(a) Normal. The Orbit task is blocked entirely; there is no activity, 

A StartI0(4) is required to resume processing. 

(b) Refreshing. The microcode goes "to sleep,” but will awake to 

refresh the Orbit memory (the buffer being written into) 
periodically. If, upon awakening, a non-zero value is detected 
in location 720b, it goes off to execute the specified function. 
Awakening may be hastened by executing StartI0(4) 

(a) is default; turn on 100000b bit in Directive to get (b) 


FUNCTIONS 

Directive=0: OrbitControl _ argument 1 
Directive-1: result _ OrbitData 
Directive=2: OrbitHeight _ argument 1, 

result _ (if Ref reshingNeeded then -1 else 0) 
Directive=3: OrbitXY _ argument 1 
Directive=4: OrbitDBCWidth __ argument 1 
Directive=6: OrbitFont _ argument 1 
Directive=6: result _ OrbitDeltaWC 
Directive=7: Orbitink _ argument 1 
Directive=10b: result _ OrbitDBCWidth 
Directive=llb : Orbi tROSCommand _ argument 1 
Directive=12b : Read data words (OrbitData) 



argument 1 = count of words to read 
argument 2 = address to put first word 
Directive = 13b : Shovel a character to Orbit 
OrbitHeight _ argument 1 
OrbitXY _ argument 2 
OrbitDBCWidth _ nBandsMl 

for i=0 to abs(LoTable)-l do Orbi tFont_FAl i 

(use ’’tasking” loop if LoTable>0, else non-tasking) 
result _ OrbitDBCWidth 
NewRp _ OrbitDeltaWC 

Di recti ve=14b : Process an entire page and send to Slot 

argument 1 = pointer (even) to ROS command table. 

ROS command table entries are 2 words each: 

command bit 4 -- which command to do 

BandMl bit 12. — do it when nBandsMl matches this field 
rosArgument bit 16. -- this is the argument 
Commands : 

0 -- Send rosArgument as a ROS command 

1 -- spare 

2 -- spare 

3 -- Wait (used if 2 ROS commands needed in same band) 
argument 2 = Timeout count, in number of refresh cycles 

result _ updated NewRp (remember it’s 1 below next char) 

Directive=15b: Process a single band and return 

result _ updated NewRp (remember it’s 1 below next char) 

Directive=16b : Read a single word of ROS status (argument 1 

contains, in the left half, the first address of ROS memory 

to look in). 

result _ status word 



;Orbit microcode 
#AltoConsts23.Mu; 
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;0rbit -- task 1 (just below the emulator) 

; PackMu OrbitMc.Mb OrbitMc.Br 177774 

happen 

clock does not 


Comment conventions: 

Put on any instruction after which a TASK switch might 
la,b Branching between locations a and b may occur 
// Put on instructions inserted to make sure Alto 

stop during execution of an Orbit function. 


Orbit definitions 


SORBITDWC 

$L0, 070014, 100; 

Fl==14 Alto_Delta Word Count 


SORBITDBCWID 

$LE6010. 

70016, 120100; Fl=15 Alto.Delta BC, Width (- 

1) 

J 



F2=10. Delta Be, Width^Alto. 

Cinit 

SORBITDBCWIDx 

$L16015. 

0, 160000 

Fl=15 (version that does not 

define BUS) 

SORBITXY 

$126011, 

0, 120000 

F2-11. X,Y _ Alto 


SORBITHEIGHT 

$L2601Z, 

0, 120000 

F2=12, Height _ AUo 1 1 IBRANCHESl 1 1 

SORBITFONT 

$L26013, 

0, 120000 

F2-13, Font data _ Alto 


SORBITINK 

$L26014, 

0, 120000 

F2=14. Ink data _ Alto 


SORBITCONTROL 

$L26016, 

0, 120000 

F2=15, Control . FA _ Alto 


SORBITROSCMO 

$126016, 

0. 120000 

F2=16. Ros command _ Alto 


SORBITDATA 

$L0, 70016, 100; 

Fl=16, Alto _ Output data 


$ORBITSTATUS 

$L0, 70017, 100; 

Fl=17, Alto _ Status lllBRANCHESlll 

SORBITSTATUSx 

$L16017, 

0, 160000; Fl='17 (version that does not 

define BUS) 

SBUSUNDEF 

SLO, 14002, 100; 

Leaves BS=2 so bus is 

= -l 


; Orbit Control bits: 


SGOAWAY 

$10; 


$WHICH 

$4; 


$CLRFRESH 

$2; 


$CLRBEHIND 

$20; 


$SLOTTAKE 

$300; 

Includes "enable” bit 

SSTABLEROS 

$40; 


$600 

$600; 


$400 

$400; 


$6000 

$6000; 


$170000 

$170000; 



117, 20, NOVEM, ORBIT 

117, 20. START, , ; 

;Ye olde silent boot: 

NOVEM: SWMODE; 

.•START; 

; JumpRam(20b) will set reset mode register 

$RMR $120013, 00000, 124000; set Reset Mode Register DF1=*13 

SACO $R3; 

START: RMR^ACO, -.NOVEM; 

; Global dispatch definitions: 

!l,2,LOLOOP,NCHAR; . Return from TFRCHR 

!1,2,BANDRET0,BANDRET1; Return from DOBAND 

!3,4,REFRET0,REFRET1,REFRET2,REFRET3; Return from REFRESH 

!17,20,DIR0,DIR1,DIR2,DIR3,DIR4,DIR5,DIR6,DIR7,DIR10,DIR11,DIR12,DIR13.DIR14,DIR15,DIR16,DIR17 


$DIRECTIVE 

$R76 

$ARG1 

$R75 

$ARG2 

$R74 

$NBANDSM1 

$R73 

$FA 

$R72 

$L0TABLE 

$R71 

$FONTTABLE 

$R70 



$NEWRP 

$R67 

SSTATUS 

$R66 

$RET0 

$R64 

$RET1 

$R63 

$LORP 

$R62 

$L0WP 

$R61 

$0RBBL 

$R60 

$XY 

$R57 

$BEGFADR 

$R56 

$ICC 

$R56 

$C720 

$R55 

$Shit 

$R54 

$LASTL 

$R40: 

$TEMP 

$R14 

SFONTADR 

$R15 

SHEIGHT 

$R16 


Last value of L 


in RAM 



; ORBIT -- here to load state from the control block, and to 
; dispatch on the directive. 


I1,2,0RBITX,0RREFA; 

ORBIT: T_600; 

L_100+T, TASK; 

C720_L; ** Wait here on a block... 

T_.20; 

MAR_L_C720+T; 

C720_L; 

L^MD, TASK; 

0RBBL_L; ♦* ORBBL points to our control block 

; Pick up the directive, argument 1 
ORBITX: MAR_ORBBL; 

L_0RBBL+1; 

ORBBL^L; 

L_MD; 

T__MD; 

DIRECTIVE^L, L^T, TASK; 

ARG1_L; 

; Pick up argument 2, nBandsMl 
MAR_L_0RBBL+1; 

L^LASTUl; 

ORBBL^L; 

L_MD; 

T„M0; 

ARG2_L, L_T, TASK; 

NBANDSMl^L; ** 

; Pick up FA, LoTable 
MAR„L_ORBBL+l; 

L_LASTL+1; 

ORBBL^L; 

L_MD; 

T_MD; 

FA„L, L_T, TASK; 

LOTABLE^L; ♦♦ 

; Pick up FontTable, NewRp 
MAR_L_ORBBL+l ; 

L_LASTL+1; 

ORBBL^L; 

L_MD; 

T_MD; 

FONTTABLE_L, L_T, TASK; 

NEWRP_L; 

; Dispatch to appropriate function 
T_17; 

L__DIRECTIVE AND T; 

SINK^LASTL, BUS, L_T, TASK; 

:DIR0; ** 

; ORBITDONE/STORE — here when done with a function. Zero location 
; 720b, and idle. Idle is normally BLOCK; but will sit in a loop 
; refreshing if high order bit of directive is on. 

; ORBITSTORE — returns what is in L as result 

; ORBITDONEX -- XOR*s what is in L with status 

I1,2,0RQUIET,0RREF; 

14,5. I ACS, , , ,NOIACS; 

ORBITSTORE: NEWRP^L; 

ORBITDONE: L_0, TASK; 

ORBITDONEX: ICC^L; ♦* 



L^ORBITSTATUS; 

T^IOOOOO, :IACS; 

I ACS: L^LASTL XOR T; 

NOIACS: T^ICC; 

MAR_ORBBL+l; 

L^LASTL XOR T; 

MD^NEWRP, TASK; 

MD^LASTL; ♦♦ 

;Shit 

MAR_C720+1; 

TASK; 

MD^Shit; ♦♦ 

MAR_C720; 

L^DIRECTIVE; 

SH<0, TASK; 

MD^O. :ORQUIET; *♦ 

; ORQUIET -- let Orbit be quiet between invocations. Turn off 
; the RUN flop with BLOCK, and wait for StartIO to get it going 
; again. Note that the block actually ’’takes" at the next TASK. 

; just after ORBIT. 

ORQUIET: BLOCK. :ORBIT; 

; ORREF -- Orbit’s idle loop will refresh if needed. Whenever it wakes 
; up and discovers a non-zero command block, it will resume execution. 

; Issuing a StartIO at any time will simply hasten the wakeup. 

ORREF: ORBITCONTROL^GOAWAY ; 

NOP, TASK; 

REFRET3: NOP; Wait for a good long time (2ms) 

MAR_C720; 

NOP; 

L_MD, BUS=0, TASK; 

ORBBL^L, :0RBITX; ** 1 ORBITX , ORREFA 


ORREFA: L„3 . TASK, : REFRESH; 


Return to REFRET3 on new wakeup 



; Directive 0; Control _ argument 1 
DIRO : ORBITCONTROL_ARGl ; 

NOP, TASK; 

NOP, :ORBITDONE; -- Let us go away if GOAWAY was set in last instr 

; Directive 1: argument _ Orbit data 
DIRl: L^ORBITDATA, :ORBITSTORE; 

; Directive ?: Set Height, return -1 if refresh needed 
14,5,N0NEEDREF, , , ,NEEDREF; 

DIR2 : ORBITHEIGHT^ARGl ; 

L_0, :NONEEDREF; 

NONEEDREF: rORBITSTORE; 

NEEDREF; L^ALLONES, :0RBITST0RE; 

; Directive 3; Set XY _ argument 1 
DIR3: ORBITXY^ARGl, :ORBITDONE; 

; Directive 4: Set delta BC, Width _ argument 1 
DIR4: ORBITDBCWID^ARGl, :ORBITDONE; 

; Directive 5: Ship font data _ argument 1 
DIR5: ORBITFONT_ARGl, TASK; 

NOP, -.ORBITDONE; ** In case FIFO full 

; Directive 6: Read delta WC 
DIR6: L^ORBITDWC, lORBITSTORE; 

; Directive 7: Set ink data _ argument 1 
DIR7: ORBITINK_ARGl, tORBITDONE; 

; Directive 10b: Read delta BC, Width 
DIRIO: L_ORBITDBCWID, :ORBITSTORE; 

; Directive 11b: ROS command _ argument 1 
DIRll: ORBITROSCMD^ARGl, : ORBITDONE; 

; Directive 12b: Read orbitdata words. First argument is count 
; Second argument is address 

Il,2,F12CONT,F12DON; 

DIR12: L_ARG2-1, TASK; 

TEMP_L; ** Temp=beginning core address-1 
T^TEMP; 

L_ARG1+T, TASK; 

ARG1_L; ♦* ARG=last address 

; 6 instructions in the loop to allow Orbit memory adequate time. 

; This could be made faster — Orbit really needs only 4 instructions 
; per ORBITDATA function. 

F12CONT: MAR„L_T_TEMP+1 ; 

TEMP^L; 

L_ARG1-T; 

MD_ORBITDATA; 

SH=0, TASK; 

:F12CONT; ♦* 

F12DON: NOP, :ORBITDONE; 

; Directive 13b: Load Height, XY, then DBCWID, shovel 
; a number of words at the interface, then read delta WC 
; Argument 1: Height 

; Argument 2: XY 

; NBANDSMl: Width 

; FA: pointer to data vector 



; LOTABLE: count (may be positive or negative — see below) 

14.1, KILLHEIGHT13; 

11.2, C0NTL0P,D0NL0P; 

11.2, C0NTL0PT»D0NL0PT; 

11.2, L0PTA,L0PNT; 

DIR13 : 0RBITHEIGHT_ARG1 ; 

0RBITXY_ARG2 , : KILLHEIGHT13 ; 

KILLHEIGHT13 : ORBITDBCWID^NBANDSMl ; 

L_T_LOTABLE; 

L_FA-1, SH<0; 

FA_L, L^T, iLOPTA; lLOPTA,LOPNT 

; Two versions of this loop. First one does not task, so logic 
; analyzer can be used on small loops. 

; Second one tasks so can be used on large characters. 

; Count<0 selects non-tasking loop. 

CONTLOP: MAR_L_FA+1; 

FA_L; 

L_L0TABLE+1; 

NOP; /////////////////////// 

ORBITFONT^MD; 

LOPNT: LOTABLE^L, SH=0; 

NOP, ‘.CONTLOP; **D0NT DO A TASK** 

CONTLOPT: MAR_L_FA+1; 

FA_L; 

L_LOTABLE-l; 

NOP; /////////////////////// 

ORBITFONT^MD; 

LOPTA: LOTABLE^L, SH-0, TASK; 

NOP, :CONTLOPT; **D0 A TASK** 

11.2, WAITL0P,WAITD0NE; 

DONLOPT: L^lOO, rWAITLOPO; 

DONLOP: L^lOO; 

WAITLOPO: TEMP^L, tWAITLOP; ** 

WAITLOP: L_TEMP-1, BUS=0, TASK, rWAITLOPO; 

; The following is a non-standard way of storing a result 
; (it comes back in the word of the control table occupied by 
; NewRp) 

WAITDONE: MAR^ORBBL; 

NOP, TASK; 

MD_ORBITDWC; ** 

L_ORBITDBCWID, ;ORBITSTORE; 

; Directive 15b: Do one band 

DIR15; L_0+1. TASK, :DOBAND; 

BANDRETl: rORBITDONE; 

; Directive 16b: Read one word of ROS Status 

11.2, WDSTLP,WDSTDN; 

!1,2,MSH1,MSH2; 

11.2, MSHGOOD,MSHBAD; 

!4,1,MSHKILL; 

t4,l,MSHKILLl; 

14,1,MSHKILL2; 

DIR16: L_ORBITSTATUS; 

FA_L, :MSHKILL1; Remember StableROS bit 

MSHKILLl: L_3, TASK, :MSH3; 


WDSTLP: L_3, :MSH0; 
MSHl: L^TEMP, TASK; 



TEMP „ L LSH 1; 

L_ICC“1, BUS=0; 

MSHO: ICC_L, :MSH1; 

MSH2: T_400; 

L_ORBITCONTROL_ARGl+T ; L_ARG1+T » ORBITCONTROL^ARGl 
ARG1_L; 

T«17; 

T^ORBITSTATUS.T; Branches 

L^TEMP + T, TASK, :MSHKILL; 

MSHKILL: TEMP_L; ** 

L_XY-1, BUS=0, TASK; 

MSH3: XY^L. :WDSTLP; ♦* 

WDSTDN: T^FA; 

T^ORBITSTATUS.T; 

L_STABLEROS AND T, :MSHKILL2; 

MSHKILL2: L^TEMP, SH=0; 

NEWRP^L, .-MSHGOOD; 

MSHGOOD: lORBITDONE; 

MSHBAD: T_20000, tORBITDONEX; 

♦ 

; Directive = 17b: Spare 
DIR17: rORBITDONE; 



; Slot Printing loop ( di rective=14b) 

; Register values on entering: 

; FA ““ first read address in band 

; NBANDSMl — NumberOf Bands~l 

; AR61 -- pointer to ROS command table of pairs (b, cmd) 

; where b=band number (first one to be executed is NBANDSMl, 

; and so on decreasing to 0). 

; ARG2 -- timeout count down 

; + see subrs 

; Uses: RETO 

; Calls: REFRESH, DOBAND 

14.1, NXR0S; Make sure NXROS will kill ORBITSTATUS branch 

ll,2,SVBND,DIR14DN; 

11.2, NOROS.GIVEROS; 

11. 2, NOTIMEOUT, TIMEOUT; 

14,5,NXBAND, , , ,REFRSH2; 

DIR14: ORBITCONTROL^SLOTTAKE; 

T_WHICH; Set FA properly. 

L„FA+T, TASK; 

ORBITCONTROL__LASTL; *♦ 

; Ship out ROS commands in the command table. 

NXROS: MAR^ARGl; Look for ROS command 

T_NBANDSM1; 

L_MD-T; 

T_7777; 

L_.LASTL AND T; 

SH-O, TASK; 

:NOROS; ♦♦ 1 NOROS .GIVEROS 

NOROS: L__0, TASK, :DOBAND; Go do most of the work. 

; Should really check BEHIND here somewhere (but after setting GOAWAY). 
BANDRETO: ORBITCONTROL^GOAWAY; 

L_ARG2, TASK; 

ICC_L; ♦♦ Wait a long time here (2 ms) 

REFRET2: ORBITHEIGHT_0 ; Branches! 1 check to see if refresh needed 
:NXBAND; 1 NXBAND, REFRSH2 

REFRSH2: L_ICC-1, BUS*0; 

ICC^L , : NOTIMEOUT ; I NOTIMEOUT , TIMEOUT 

NOTIMEOUT: L_2, TASK. :REFRESH; Return to REFRET2 on new wakeup 


; Time to begin generating a new band. 


NXBAND: 

L_NBANDSM1-1, BUS=0, 

TASK; 


NBANDSMl^L, :SVBND; 


SVBND: 

T_4; 



MAR_ORBBL-T; 

TASK; 

Update the command block to show progress 


MO^NBANDSMl, : NXROS; 


TIMEOUT: 

: L„40000, :ORBITDONEX 
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DIR14DN; 

: :ORBITOONE; 




; Dispatch on ROS command table entry (high 4 bits) 

%360 ,360,0, ROSO , ROSl , ROS2 , ROS3 ; 

GIVEROS: MAR^ARGl; 

T_2; 

L_ARG1+T; 

ARGl^L; 

1^30000; 

L_MD AND T; 

TEMP_ L LCY 8; 

L_MD, TASK; 

RETOOL; 

SINK^TEMP, BUS, TASK; 

:ROSO; 

; Op code 0: send a 16-bit ROS command 
ROSO: ORBITROSCMO^RETO, :NXROS; 

; Op code 1; read status 
ROSl ; ORBITCONTROL^RETO ; 

MAR_ARG1-1; 

NOP; 

MD^ORBITSTATUS; Warning--may or 4 into NEXT 
;NXROS; 

; Op code 2: spare 
ROS2: :NXROS; 

; Op code 3: wait in a loop — argument tells how long. 

R0S3: NOP; 

ll,2,ROS3A,ROS3B; 

R0S3A: L_RET0-1, BUS=0, TASK; 

RETOOL, :ROS3A; *♦ 

ROS3B: :NXROS; 



;DOBAND -- enter here to process a band. 

; L « index of return (BANDRETO , BANDRETl) 

; NEWRP => next new character -1 

LOTABLE => left-over table (@LOTABLE=0 at the very first) 
; FONTTABLE => ICC table (-J^'IOOOOO) 

; Uses RET1,L0RP,L0WP,F0NTADR,HEIGHT»XY.ICC 
; Calls REFRESH. TFRCHR 

DOBAND: RETl^L; 

L_LOTABLE-l; 

LORP^L, TASK; 

LOWP^L; ♦♦ 

; Process left-overs 
14,5,NOREFRSHO, , . .REFRSHO; 
ll.Z.LOLOOPA.NOLOV; 

LOLOOP: MAR„L„LORP+l; 

L_LASTL+1; 

LORP_L; 

NOP; /////////////////////// 

L_0RBITHEI6HT_MD; ORBITHEIGHT branches!! 

HEIGHT^L, SH=0. :NOREFRSHO; 

NOREFRSHO: L_ORBITXY_MD. TASK. :LOLOOPA; 

LOLOOPA: XY_L; ♦♦ 

MAR_L_LORP+l; 

L_LASTL+1; 

LORP_L; 

NOP; /////////////////////// 

ORBITDBCWID^MD; 

L^MO; 

FONTADR^L. L_0 . TASK. :TFRCHR; L=0 *> return to LOLOOP 

; Come to REFRSHO to refresh when in the left-over 
; loop. Backs up the LORP pointer and returns to LOLOOP. 

!1 . 1 .REFRSHOA; Kill SH=0 coming from above 
REFRSHO: T_2, :REFRSH0A; 

REFRSHOA: L_LORP-T. TASK; Back up the read pointer 

LORP^L; 

L_.0. TASK. : REFRESH; 

REFRETO: :LOLOOP; 

; Come to NCHAR when finished with left-over table (terminating 
; 0 encountered) . 

; Process ’’new characters” from the main list. 

!4,5.N0REFRSH1, . . .REFRSHl; 

ll.Z.REGRULE.ENDBAND; 

ll.Z.NOTCHAR.REGCHAR; 

NOLOV: NOP; ♦♦ 

NCHAR : MAR_L_NEWRP+1 ; 

L_LASTL+1; 

NEWRP^L; 

L_MD ; 

ORBITXY^T^MO; 

ICC.L, L_T. SH<0, TASK; 

XY_L. :NOTCHAR; ♦♦ 

REGCHAR: L_T_ICC; 

MAR_FONTTABLE+T; 

NOP; 

L_MO+l. TASK; 

FONTADR^L; *♦ 

MAR^FONTAOR-l; 

L_FONTADR+l; 



/////////////////////// 


NOP; 

GETHW: FONTADR^L; 

ORBITHEIGHT_L_MO; Branches 1 1 

HEIGHT^L, L_0+1. :NOREFRSHl; 

NOREFRSHl: ORBITDBCWID^MD , TASK, :TFRCHR; L=1 => return to NCHAR 

14,1,KILLHEIGHT0; 

REFRSHl: L^MH, TASK; 

ICC^L; ♦* Save DBCWID 

L_0+1, iREFRESH; 

REFRETl; ORBITHEIGHT^HEIGHT ; Branchesl I 

ORBITXY^XY, :KILLHEIGHTO; 

KILLHEIGHTO: ORBITDBCWID^ICC ; 

L_0+1, TASK, :TFRCHR; 

; If not a character, check for a rule. 

NOTCHAR: SINK_ICC, BUS-0, TASK; 

rREGRULE; ♦* I REGRULE , ENDBAND 

; Do a rule. Note that XY is already processed, and given to Orbit 
REGRULE: MAR_L_NEWRP+1 ; 

L_LASTL+1; 

NEWRP^L; 

L_0, : GETHW; 

; We have an "end band” signal in the new character list, 

ENDBAND: MAR_L0WP+1; Terminate the left over list 

SINK^RETl, BUS. TASK; 

MD^O, :BANDRET0; 



; TFRCHR -- Transfer a character part to the Orbit. 
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; Register values on entering (*** means already passed to Orbit): 

; L -- "return” address (0=>LOLOOP; 1=>NCHAR) 

; XY -- xy position in Orbit format (ORBITXY) *** 

; HEIGHT -- height in Orbit format (ORBITHEIGHT) 

; FONTADR -- pointer to first data word of the font character 

; If FONTADR=0, it will be a "rule" instead 

; (be, width) -- has already been given to Orbit (ORBITDBCWID_) 

; LOWP write pointer into left overs 

; Uses RETO, BEGFADR 

17,10, FONTODD , FONTEVEN , , , FONTDONE , , . ; 

!l,2,FONTLA,FONTRULE; 

ll,2,FONTLO,FONTDN; 

14,5,F0NTRULEC, . . ,FONTRULED: 

TFRCHR: RETOOL; Save return address 

MAR^T^FONTADR, BUS=0; 

L_ONE AND T, :FONTLA; Check to see if first address odd or even 
FONTLA: L_FONTADR+l. SH==0; 

BEGFADR^L, : FONTODD; 

FONTLP: MAR__L_FONTADR+l ; 

NOP; /////////////////////// 

L_LASTL+1; 

FONTEVEN: ORBITSTATUSx , FONTADR_L; Branchesll check to see if done 

ORBITFONT_MD, TASK, :FONTODD; 

FONTODD: ORBITFONT^MD . : FONTLP; 

; Come here to put out a "rule" -- just give Orbit all -I’s 
; as font bits. 

FONTRULE: ORBITSTATUSx; Check to see if finished 
ORBITFONT^BUSUNDEF, TASK, :FONTRULEC; 

FONTRULEC: ORBITFONT^BUSUNDEF , : FONTRULE; ♦♦ 

; Now undo the effect on bumping the Font Address 

FONTRULED: NOP;** 

T^ORBITDWC; 

L_ONE-T, TASK; 

BEGFADR^L, :FONTDNX; ** 

FONTDONE: NOP; ** 

FONTDNX: T_7777, ORBITDBCWIDx; Read remaining width 
L_7777-T; 

T^ORBITDWC-l; 

L_BEGFADR+T, SH*0, TASK; 

FONTADR^L, :FONTLO; ** 

; Left over to record. Format: 

; word 0: height 

; word 1: y (x=0) 

; word 2: dbc, width 

; word 3: font address 


FONTLO: T_7777; 

L_XY AND T. TASK; 
BEGFADR^L; * 

MAR_L^LOWP+l; 
L_LASTL+1; 
MD^HEIGHT; 
MD_BEGFADR. TASK; 
LOWP_L; ** 


MAR_L_LOWP+l 

L_LASTL+1; 



MD^ORBITDBCWID; 
MD^FONTADR, TASK; 
LOWP^L; 

FONTDN: SINK^RETO, BUS, TASK 
:LOLOOP; ♦♦ 



; REFRESH -- the place that all refreshing is done (for now) 

; Requires about 35*3+7 = 112 microcycles 
; Register values on entering: 

L -- return index 

; Uses RETO, TEMP{R) -- but doesn’t change it 

; Note that a good deal of Orbit state is destroyed. 

; Calculation of number of times through loop: 

; let n=number to store in L at beginning. (n+l)*2=64.+6. 

6 is to leave enough in the FIFO. 

I4,5,REFLPA, , , ,R£FLPD; 

14,1,REFLP; Kill height branch 

REFRESH: RETOOL; ** 

ORBITXY^O; 

ORBITHEIGHT^eOOO; BrancheslI 1024. bits = 64. words 

ORBITDBCWID^O, :REFLP; 

REFLP: L_TEMP, ORBITSTATUSx ; BrancheslI check to see if done. 

ORBITFONT^O, TEMP_.L, TASK, :REFLPA; TEMP^L just to hold BUS-0 
REFLPA: ORBITFONT^O, :REFLP; ♦* 

; Note about the exit code. If GOAWAY is set, the REFRESH subroutine 
; does not return until a new wakeup is generated (either by 
; another refresh request or by someone clearing GOAWAY: StartIO 
; or buffer-switch). 

REFLPO: ORBITCONTROL^CLRFRESH ; *♦ 

SINK^RETO, BUS, TASK; 

:REFRET0; 


Usually hangs up here if no wakeup 



